	// Project Data

constant kVersionStr := "1.0a11";
constant kAppTitle := kAppName && kVersionStr;
constant kTransportSymbol	:= '|Transport:XML-RPC:ATOW|;
constant kUnitSymbol := kAppSymbol;




DefConst('kDefaultPrefs,	{
								port: "80",
								path: "/",
								host: nil,
								internalStore: nil,
							});

DefConst('kLoadPrefsFunc,
	func()
	begin
		local prefs := GetAppPrefs(kAppSymbol, Clone(kDefaultPrefs));
		local customDataSoup := RegUnionSoup(kAppSymbol, kCustomDataSoupDef);
		
		if not HasSlot(prefs, 'timestamp) then begin
			local entry;
		
			prefs.timestamp := Time();
		
			print("Installing for the first time. Adding default soup");
			
			foreach item in kCustomDataDefaultSoup do begin
				entry := Clone(item);
				entry.timestamp := Time();
				
				if prefs.internalStore then
					customDataSoup:AddToStoreXmit(entry, GetStores()[0], nil);
				else customDataSoup:AddToDefaultStoreXmit(entry, nil);
			end;
			
			EntryChangeXmit(prefs, kAppSymbol);
		end;
		
		prefs;
	end);

